home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8148 < prev    next >
Encoding:
Text File  |  1996-09-10  |  1.2 KB  |  113 lines
  1. %%BeginFile: lw8_bubn-2.0
  2. /$t Z
  3. /$p Z
  4. /$s Z
  5. /$o 1. def
  6. /2state? F def
  7. /ps Z
  8. level2 startnoload
  9. /pushcolor/currentrgbcolor ld
  10. /popcolor/setrgbcolor ld
  11. /setcmykcolor where
  12. {
  13. pop/currentcmykcolor where
  14. {
  15. pop/pushcolor/currentcmykcolor ld
  16. /popcolor/setcmykcolor ld
  17. }if
  18. }if
  19. level2 endnoload level2 not startnoload
  20. /pushcolor
  21. {
  22. currentcolorspace $c eq
  23. {
  24. currentcolor currentcolorspace T
  25. }{
  26. currentcmykcolor F
  27. }ifelse
  28. }bd
  29. /popcolor
  30. {
  31. {
  32. setcolorspace setcolor
  33. }{
  34. setcmykcolor
  35. }ifelse
  36. }bd
  37. level2 not endnoload
  38. /pushstatic
  39. {
  40. 2state?
  41. $o
  42. $t
  43. $p
  44. $s
  45. $cs
  46. ps
  47. }bd
  48. /popstatic
  49. {
  50. /ps xs
  51. /$cs xs
  52. /$s xs
  53. /$p xs
  54. /$t xs
  55. /$o xs
  56. /2state? xs
  57. }bd
  58. /pushgstate
  59. {
  60. save errordict/nocurrentpoint{pop 0 0}put
  61. currentpoint
  62. 3 -1 roll restore
  63. pushcolor
  64. currentlinewidth
  65. currentlinecap
  66. currentlinejoin
  67. currentdash exch aload length
  68. np clippath pathbbox
  69. $m currentmatrix aload pop
  70. }bd
  71. /popgstate
  72. {
  73. $m astore setmatrix
  74. 2 index sub exch
  75. 3 index sub exch
  76. rC
  77. array astore exch setdash
  78. setlinejoin
  79. setlinecap
  80. lw
  81. popcolor
  82. np :M
  83. }bd
  84. /bu
  85. {
  86. pushgstate
  87. gR
  88. pushgstate
  89. 2state?
  90. {
  91. gR
  92. pushgstate
  93. }if
  94. pushstatic
  95. pm restore
  96. mTS setmatrix
  97. }bd
  98. /bn
  99. {
  100. /pm save store
  101. popstatic
  102. popgstate
  103. gS
  104. popgstate
  105. 2state?
  106. {
  107. gS
  108. popgstate
  109. }if
  110. }bd
  111. /cpat{pop 64 div setgray 8{pop}repeat}bd
  112. %%EndFile
  113.